home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / windows / ezdia175.zip / EZ4VB.ZIP / EZDIALUP.BAS < prev    next >
BASIC Source File  |  1996-02-27  |  5KB  |  63 lines
  1. Attribute VB_Name = "EZDialup"
  2. Option Explicit
  3.  
  4. 'lstrcpy is used to get string value given a pointer to the string
  5. Declare Function lstrcpy Lib "Kernel" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
  6.  
  7. 'EZDialup function declarations
  8. Declare Sub StartSession Lib "appdial.dll" (ByVal CmdLine As String, ByVal AppHandle As Integer)
  9. Declare Sub AbortSession Lib "appdial.dll" () 
  10. Declare Sub ChangePhoneNumber Lib "appdial.dll" ()
  11. Declare Sub StopEZDialup Lib "appdial.dll" ()
  12.  
  13. Declare Sub SetDialingSequence Lib "appdial.dll" (ByVal DialStr As String)
  14. Declare Sub SetDialupCommPort Lib "appdial.dll" (ByVal PortStr As String)
  15. Declare Sub SetDialupCommConfig Lib "appdial.dll" (ByVal CfgStr As String)
  16. Declare Sub SetModemInit1 Lib "appdial.dll" (ByVal InitStr As String)
  17. Declare Sub SetModemInit2 Lib "appdial.dll" (ByVal InitStr As String)
  18. Declare Sub SetDownloadBlockSize Lib "appdial.dll" (ByVal Size As Integer)
  19. Declare Sub SetUploadBlockSize Lib "appdial.dll" (ByVal Size As Integer)
  20. Declare Sub SetLinkUserPath Lib "appdial.dll" (ByVal Path As String)
  21. Declare Sub SetLinkUserPassword Lib "appdial.dll" (ByVal Password As String)
  22. Declare Sub SetExecutablePath Lib "appdial.dll" (ByVal Path As String)
  23. Declare Sub EstablishDialupLink Lib "appdial.dll" ()
  24.  
  25. Declare Function StartDownload Lib "appdial.dll" (ByVal ServerSource as String, ByVal ClientTarget as String) As Integer
  26. Declare Function StartUpload Lib "appdial.dll" (ByVal ClientSource as String, ByVal ServerTarget as String) As Integer 
  27. Declare Function StartMoveDown Lib "appdial.dll" (ByVal ServerSource as String, ByVal ClientTarget as String) As Integer 
  28. Declare Function StartMoveUp Lib "appdial.dll" (ByVal ClientSource as String, ByVal ServerTarget as String) As Integer 
  29. Declare Function UnzipServerFile Lib "appdial.dll" (ByVal ZipFilePath as String, ByVal TargetServerDirectory as String) As Integer 
  30. Declare Function UnzipClientFile Lib "appdial.dll" (ByVal ZipFilePath as String, ByVal TargetClientDirectory as String) As Integer 
  31. Declare Function ZipServerFile Lib "appdial.dll" (ByVal TargetZipFilePath as String, ByVal SourcePathAndFileMask as String) As Integer 
  32. Declare Function ZipClientFile Lib "appdial.dll" (ByVal TargetZipFilePath as String, ByVal SourcePathAndFileMask as String) As Integer 
  33. Declare Function DeleteFilesOnServer Lib "appdial.dll" (ByVal SourcePathAndFileMask as String) As Integer 
  34. Declare Function DeleteFilesOnClient Lib "appdial.dll" (ByVal SourcePathAndFileMask as String) As Integer 
  35. Declare Function RunProgramOnServer Lib "appdial.dll" (ByVal ProgramPath as String) As Integer 
  36. Declare Function RunProgramOnClient Lib "appdial.dll" (ByVal ProgramPath as String) As Integer 
  37. Declare Function LaunchProgramOnServer Lib "appdial.dll" (ByVal ProgramPath as String) As Integer 
  38. Declare Function LaunchProgramOnClient Lib "appdial.dll" (ByVal ProgramPath as String) As Integer 
  39. Declare Function UpdateClientDirectory Lib "appdial.dll" (ByVal ClientDirectory as String, ByVal ServerDirectory as String, ByVal ClientDateFilePath as String) As Integer 
  40. Declare Function EZMailUpdate Lib "appdial.dll" (ByVal ServerMailboxPath as String, ByVal ServerDirectory as String, ByVal ClientMailboxPath as String) As Integer 
  41.  
  42. Declare Sub EstablishLinkAsTerminal Lib "appdial.dll" ()
  43. Declare Function SerialIOWaiting Lib "appdial.dll" () As Integer
  44. Declare Function GetSerialByte Lib "appdial.dll" () As Integer
  45. Declare Function SendSerialByte Lib "appdial.dll" (ByVal iChar As Integer) As Integer
  46. Declare Function SendSerialString Lib "appdial.dll" (ByVal sData As String) As Integer
  47. Declare Function SetupNotification Lib "appdial.dll" (ByVal sWaitFor As String, ByVal sRespondWith As String, ByVal iIndex As Integer, ByVal iMessageID As Integer) As Integer
  48. Declare Sub DisableAllNotifications Lib "appdial.dll" ()
  49. Declare Sub ReEnableAllNotifications Lib "appdial.dll" ()
  50. Declare Sub StartTerminalDownload Lib "appdial.dll" ((ByVal sFilePath as string, iProtocolCode as integer)
  51. Declare Sub StartTerminalUpload Lib "appdial.dll" (ByVal sFilePath as string, ByVal iProtocolCode as integer)
  52. Declare Sub InterruptFileTransfer Lib "appdial.dll" ()
  53. Declare Sub EstablishCommPortLink Lib "appdial.dll" ()
  54. Declare Sub SupplyRegistrationCodes Lib "appdial.dll" (ByVal Code1 as string, ByVal Code2 as string)
  55.  
  56. Global Const WM_USER = 1024
  57.  
  58. Sub Center (FormName As Form)
  59.     FormName.Move ((Screen.Width - FormName.Width) / 2), ((Screen.Height - FormName.Height) / 2)
  60. End Sub
  61.  
  62.  
  63.